#pragma once

#include <iostream>
#include <string>
#include <cstring>
#include <cerrno>
#include <unistd.h>

#include <unordered_map>
#include <functional>

#include <sys/types.h>
#include <sys/wait.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <arpa/inet.h>

#include "Log.hpp"
#include "nocopy.hpp"
#include "Comm.hpp"
#include "InetAddr.hpp"
#include "Threadpool.hpp"

static const int default_backlog = 5;

using task_t = function<void()>;
using callback_t = function<void(int sockfd,InetAddr addr)>;

class TcpServer;//声明

class ThreadDate
{
public:
    ThreadDate(int sock,TcpServer* ptr,struct sockaddr_in& peer)
    :sockfd(sock),svr_ptr(ptr),addr(peer)
    {}
        
    int SockFd() {return sockfd;}

    TcpServer* GetServer() {return svr_ptr;}

    ~ThreadDate()
    {
        close(sockfd);//用完后进行释放文件描述符
    }

private:
    int sockfd;
    TcpServer* svr_ptr;
public:
    InetAddr addr;
};

class TcpServer : public nocopy
{
public:
    TcpServer(uint16_t port) : _port(port), _isrunning(false)
    {}

    void Init()
    {
        // 创建sock文件
        _listensock = socket(AF_INET, SOCK_STREAM, 0);
        if (_listensock < 0)
        {
            lg.LogMessage(Fatal, "create sock errorr, %d : %s\n", errno, strerror(errno));
            exit(Fatal);
        }
        lg.LogMessage(Debug, "create sock success, sock:%d\n", _listensock);

        // 固定写法解决少量bind失败问题：
        int opt = 1;
        setsockopt(_listensock, SOL_SOCKET, SO_REUSEADDR | SO_REUSEPORT, &opt, sizeof(opt));

        // 填充本地信息并bind给内核
        struct sockaddr_in local;
        memset(&local, 0, sizeof(local));
        local.sin_family = AF_INET;
        local.sin_port = htons(_port);             // 将整形转化成网络序列
        local.sin_addr.s_addr = htonl(INADDR_ANY); // 0

        // bind sock文件和网络序列
        if (bind(_listensock, CONV(&local), sizeof(local)) != 0)
        {
            lg.LogMessage(Fatal, "bind error, %d : %s\n", errno, strerror(errno));
            exit(Bind_Err);
        }
        lg.LogMessage(Debug, "bind success,sock: %d\n", _listensock);

        // 设置socket为监听模式，tcp特有的
        if (listen(_listensock, default_backlog) != 0)
        {
            lg.LogMessage(Fatal, "listen error, %d : %s\n", errno, strerror(errno));
            exit(Listen_Err);
        }
        lg.LogMessage(Debug, "listen success,sock: %d\n", _listensock);

//-+
        ThreadNS::ThreadPool<task_t>::GetInstance()->Start();

        funcs.insert(make_pair("default",bind(&TcpServer::Defaultserver,this,placeholders::_1,placeholders::_2)));
    }

    void Defaultserver(int sockfd,InetAddr addr)
    {
        string server_list = " |";
        for(auto func : funcs)
        {
            server_list += func.first;
            server_list += "|";
        }
        write(sockfd,server_list.c_str(),server_list.size());
    }

    // Tcp连接全双工通信
    void Service(int sockfd,InetAddr peer)
    {
        char buffer[1024];

        while (true)
        {
            ssize_t n = read(sockfd, buffer, sizeof(buffer));
            if (n > 0)
            {
                buffer[n] = 0;
                cout << peer.PrintDebug() << "# " << buffer << endl;
            }
            else if (n == 0)
            {
                lg.LogMessage(Info, "client quit...\n");
                break;
            }
            else
            {
                lg.LogMessage(Error, "listen error, %d : %s\n", errno, strerror(errno));
                break;
            }
        }
    }

    // void *HandlerRequest(void *agrs)
    // {
    //     pthread_detach(pthread_self());//将线程分离，这样主线程就不用join了
    //     Service((int)agrs);
    //     close((int)agrs);
    //     return nullptr;
    // }

    static void *HandlerRequest(void *agrs)//是包含this指针的！！
    {
        pthread_detach(pthread_self());//将线程分离，这样主线程就不用join了
        ThreadDate* td = static_cast<ThreadDate*>(agrs);
        td->GetServer()->Service(td->SockFd(),td->addr);
        delete td;
        return nullptr;
    }

    void Start()
    {
        _isrunning = true;
        signal(SIGCHLD, SIG_IGN); // 对传递回来的SIGPIPE信号不做处理

        while (_isrunning) //_listensock相当于是负责拉客的人，找到客人返回的文件描述符
        {
            // 获取连接
            struct sockaddr_in peer;
            socklen_t len = sizeof(peer);
            int sockfd = accept(_listensock, CONV(&peer), &len); // sockfd才是提供服务的服务员
            if (sockfd < 0)
            {
                lg.LogMessage(Fatal, "accept fail,%d : %s\n", errno, strerror(errno));
                continue;
            }
            lg.LogMessage(Debug, "accept success,sock: %d\n", _listensock);

            // 提供服务： v1 ~ v4
            // v1
            //  Service(sockfd);
            //  close(sockfd);

            // v2 多进程
            //  int id = fork();
            //  if (id < 0)
            //  {
            //      close(_listensock);
            //      continue;
            //  }
            //  else if (id == 0) // child
            //  {
            //      close(_listensock);

            //     if (fork() > 0)
            //         exit(0); // 子进程直接退出使父进程等待成功继续往后执行，让孙子进程执行任务

            //     //孙子进程，当子进程退出后，孙子进程会被系统领养，正常处理

            //     Service(sockfd);//每新建一个就把sockfd文件描述符给子进程

            //     close(sockfd);//出来后父进程就把sockfd给释放，这样就能防止文件描述符泄漏（文件描述符是有限的！因为给了子进程，所以就把父进程就没用了所以就把它释放防止不断产生）

            //     exit(0);
            // }
            // else // fater
            // {
            //     close(sockfd);
            //     int rid = waitpid(id, nullptr, 0);
            //     if (rid == id)
            //     {
            //         //do nothing
            //     }
            // }

            // v2 多进程
            //     int id = fork();
            //     if (id < 0)
            //     {
            //         close(_listensock);
            //         continue;
            //     }
            //     else if (id == 0) // child
            //     {
            //         close(_listensock);
            //         Service(sockfd);
            //         close(sockfd);

            //         exit(0);
            //     }
            //     else
            //     {
            //         close(sockfd);
            //         // int rid = waitpid(id, nullptr, 0);//不等待了！

            //         //do nothing
            //     }
            // }

            // v3进程池：

            // v4多线程：
            // ThreadDate* td = new ThreadDate(sockfd,this,peer);
            // pthread_t tid;
            // pthread_create(&tid, nullptr, HandlerRequest, td);

            //线程池：
            InetAddr addr(peer);
            task_t t = bind(&TcpServer::Routine,this,sockfd,peer);
            ThreadNS::ThreadPool<task_t>::GetInstance()->Push(t);
        }
    }

    string Read(int sockfd,InetAddr peer)
    {
        char buffer[1024];
        ssize_t n = read(sockfd, buffer, sizeof(buffer));
        if (n > 0)
        {
            buffer[n] = 0;
            cout << peer.PrintDebug() << "# " << buffer << endl;
        }
        else if (n == 0)
        {
            lg.LogMessage(Info, "client quit...\n");
        }
        else
        {
            lg.LogMessage(Error, "listen error, %d : %s\n", errno, strerror(errno));
        }
        return buffer;
    }

    void Routine(int sockfd,InetAddr addr)
    {
        funcs["default"](sockfd,addr);
        string type = Read(sockfd,addr);
        lg.LogMessage(Debug,"%s select %s\n",addr.PrintDebug().c_str(),type.c_str());
        if(type == "ping")
            funcs[type](sockfd,addr);
        else if(type == "translate")
            funcs[type](sockfd,addr);
        else if(type == "transform")
            funcs[type](sockfd,addr);
        else
        {}
        close(sockfd);
    }

    void RegisterServer(string name,callback_t func)
    {
        funcs[name] = func;
    }

    ~TcpServer()
    {
    }

private:
    int _listensock;
    uint16_t _port;

    bool _isrunning;

    unordered_map<string,callback_t> funcs;

};
